program exam2task1;

function ismultiple (A,B:integer):boolean;
begin
if B mod A=0 then ismultiple:=true
else ismultiple:=false;
end;

begin
Writeln('4,32:',ismultiple(4,32));
Writeln('4,15:',ismultiple(4,15));
readln();
end.

-------------or a solution without the function-----------

Program IsMultiple;
Var A, B: integer;
Multiple: boolean;
Begin
A:=4; B:=32;
Multiple:= B mod A = 0;
Write(multiple);
End.